home *** CD-ROM | disk | FTP | other *** search
-
- INCLUDE "exec/types.i"
- INCLUDE "hardware/custom.i"
- INCLUDE "hardware/intbits.i"
-
- XREF _LVOSignal
- XDEF _CopRoutine
-
- EXECBASE set 4
-
- Task equ 0
- SigMask equ 4
-
-
- * Entered with: A0 == scratch
- * D0 == scratch A1 == Data
- * D1 == scratch
- *
- *
- section code
-
- _CopRoutine:
- movem.l a2-a6/d2-d6,-(sp) ; Save
-
- move.l SigMask(a1),d0
- movea.l Task(a1),a1
- move.l EXECBASE,a6
- jsr _LVOSignal(a6)
-
- movem.l (sp)+,a2-a6/d2-d6 ; Restore
-
- moveq.l #0,d0 ; set Z flag
- rts ;return to exec
-
- END
-